home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 43
/
Mac Magazin and MacEasy Magazine CD - Issue 43.iso
/
Software
/
Mobiles Büro
/
Newton
/
Newton GPS
/
GPS Map Lite 2.0b ƒ
/
MPS-Mac
/
Map Template 1.5
/
Project.txt
< prev
Wrap
Text File
|
1997-07-09
|
2KB
|
47 lines
//////////////////////////////////////////////////////////////////////
// Map Template for Map Preparation Package version 1.5 //
// //
// Copyright ©1995-97 //
// Gerd Staudenmaier, Software Development & Marketing //
// Friedrichshafener Str. 24 b //
// D-88090 Immenstaad, Germany //
// e-mail: gerds@micronet.de //
// all rights reserved ! //
// //
// IMPORTANT !!! //
// You may freely use this map template for use with "GPS Map" and //
// "GPS Map Lite" only. All other applications need the written //
// permission of the author! //
//////////////////////////////////////////////////////////////////////
CONSTANT C_SCREEN_RES := 85; // MP1xx screen resolution in dots per inch
DEFCONST ('SetOffset, FUNC (BoundsFrame, dX, dY)
BEGIN
BoundsFrame.left := BoundsFrame.left + dX;
BoundsFrame.top := BoundsFrame.top + dY;
BoundsFrame.right := BoundsFrame.right + dX;
BoundsFrame.bottom := BoundsFrame.bottom + dY
END);
DEFCONST ('calcBounds, FUNC (TilesArray)
BEGIN
LOCAL Bounds := {left: 0, top: 0, right: 0, bottom: 0};
FOR I := 0 TO Length (TilesArray) - 1 DO BEGIN
IF (TilesArray[I].bounds.left < Bounds.left)
THEN Bounds.left := TilesArray[I].bounds.left;
IF (TilesArray[I].bounds.top < Bounds.top)
THEN Bounds.top := TilesArray[I].bounds.top;
IF (TilesArray[I].bounds.right > Bounds.right)
THEN Bounds.right := TilesArray[I].bounds.right;
IF (TilesArray[I].bounds.bottom > Bounds.bottom)
THEN Bounds.bottom := TilesArray[I].bounds.bottom
END;
RETURN Bounds
END);
// end of project file